open(WRBUFF,">eqtl_output_final");
for($i=1;$i<238;$i++)
{
	open(BUFF,"./$i/eqtl_output");
	$line = <BUFF>;
	if($i==1)
	{
		print WRBUFF $line;
	}
	while(<BUFF>)
	{
		print WRBUFF $_;
	}
	system("rm -rf ./$i/*");
	system("rmdir $i");
}
close(BUFF);
close(WRBUFF);
